* vc-arch.el (vc-arch-diff): Let-bind `process-file-side-effects' with nil.

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index f9ead1847316762288c810a558b65314614e9d8b..68146bcf1f78adda4db7dee0183531a9c2341dee 100644 (file)
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -456,7 +456,8 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see
         (setq newvers nil))
     (if newvers
         (error "Diffing specific revisions not implemented")
-      (let* ((async (not vc-disable-async-diff))
+      (let* (process-file-side-effects
+            (async (not vc-disable-async-diff))
              ;; Run the command from the root dir.
              (default-directory (vc-arch-root file))
              (status